home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr25 / findver.zip / FINDVER.CMD next >
OS/2 REXX Batch file  |  1993-03-01  |  363b  |  13 lines

  1. /* REXX */
  2. kernel = "\OS2KRNL"
  3. if (stream(kernel, "command", "open read") == "READY:") then do
  4.     string = charin(kernel, , chars(kernel))
  5.     start = pos("Internal revision", string)
  6.     say substr(string, start,  pos(x2c("00"), string, start) - start)
  7.     result = stream(kernel, "command", "close")
  8. end
  9. else
  10.     say "Can't find/open" kernel
  11. exit
  12.  
  13.